5 POKE55,.:POKE56,56:CLR
6 DV=PEEK(186):IFDV<8THENDV=8
7 POKE53280,.:POKE53281,.:PRINT"[147]"
8 POKE53371,.
9 POKE53272,31
10 AD=49152
15 SYSAD:SYSAD+12
25 PRINT"[147]":SYSAD+9,0
30 PRINTTAB(6)"[154][204][213][206][193][210] [197][195][204][201][208][211][197] [208][210][197][196][201][195][212][207][210]"
35 R1=(null)/180:U=0
40 PRINTTAB(11)"[153][217]EAR: ";:L9%=4:GOSUB510:Y=Q9
45 G=1:IFY<1583THENG=0
50 PRINT
55 K0=INT((Y-1900)*12.3685)
60 T=(Y-1899.5)/100
65 T2=T*T:T3=T*T*T
70 J0=2415020+29*K0
75 F0=.0001178*T2-.000000155*T3
80 F0=F0+.75933+.53058868*K0
85 F0=F0-.000837*T-.000335*T2
90 J0=J0+INT(F0):F0=F0-INT(F0)
95 M0=K0*.08084821133
100 M0=360*(M0-INT(M0))+359.2242
105 M0=M0-.0000333*T2
110 M0=M0-.00000347*T3
115 M1=K0*.07171366128
120 M1=360*(M1-INT(M1))+306.0253
125 M1=M1+.0107306*T2
130 M1=M1+.00001236*T3
135 B1=K0*.08519585128
140 B1=360*(B1-INT(B1))+21.2964
145 B1=B1-.0016528*T2
150 B1=B1-.00000239*T3
155 FORK9=1TO27STEP 2
160 J=J0+14*K9:F=F0+.765294*K9
165 K=K9/2
170 M5=(M0+K*29.10535608)*R1
175 M6=(M1+K*385.81691806)*R1
180 B6=(B1+K*390.67050646)*R1
185 F=F-.4068*SIN(M6)
190 F=F+(.1734-.000393*T)*SIN(M5)
195 F=F+.0161*SIN(2*M6)
200 F=F-.0104*SIN(2*B6)
205 F=F-.0074*SIN(M5-M6)
210 F=F-.0051*SIN(M5+M6)
215 F=F+.0021*SIN(2*M5)
220 F=F+.5/1440
225 J=J+INT(F):F=F-INT(F)
230 GOSUB260
235 NEXT
240 GOSUB30000
250 POKE198,.:GOTO25
260 REM LUNAR ECLIPSE SUBROUTINE
265 D7=0
270 IFABS(SIN(B6))>.36THEN505
275 S=5.19595-.0048*COS(M5)
280 S=S+.0020*COS(2*M5)
285 S=S-.3283*COS(M6)
290 S=S-.0060*COS(M5+M6)
295 S=S+.0041*COS(M5-M6)
300 C1=.2070*SIN(M5)
305 C1=C1+.0024*SIN(2*M5)
310 C1=C1-.0390*SIN(M6)
315 C1=C1+.0115*SIN(2*M6)
320 C1=C1-.0073*SIN(M5+M6)
325 C1=C1-.0067*SIN(M5-M6)
330 C1=C1+.0117*SIN(2*B6)
335 D9=ABS(S*SIN(B6)+C1*COS(B6))
340 U=.0059+.0046*COS(M5)
345 U=U-.0182*COS(M6)
350 U=U+.0004*COS(2*M6)
355 U=U-.0005*COS(M5+M6)
360 RP=1.2847+U:RU=.7404-U
365 MP=(1.5572+U-D9)/.545
370 IFMP<0THEN505
375 MU=(1.0129-U-D9)/.545
380 D5=1.5572+U:D6=1.0129-U
385 D7=.4679-U
390 N=(.5458+.04*COS(M6))/60
395 D5=SQR(D5*D5-D9*D9)/N
400 IFMU<=0THEN420
405 D6=SQR(D6*D6-D9*D9)/N
410 IFMU<=1THEN420
415 D7=SQR(D7*D7-D9*D9)/N
420 GOSUB555
422 SYSAD+9,1
425 PRINT"[158][196]ATE: [146]";Y;M;D1
430 PRINT"[153][205]AX-PHASE: ";
435 PRINTH1;":";M9;"[153][213][212]"
440 MP=INT(1000*MP+.5)/1000
445 PRINT"[159][208]ENUMBRAL MAG: ";MP
450 IFMU<=0THENPRINT:GOTO465
455 MU=INT(1000*MU+.5)/1000
460 PRINT"[159][213]MBRAL MAG: ";MU
465 PRINTTAB(23)"[158][145][145][145][145]-[211]EMIDURATIONS-[146]"
470 D5=INT(D5+.5):REM ROUND OFF
475 PRINTTAB(22)"[155][208]ENUMBRA:";D5;"[155]MIN"
480 IFMU<0THEN500
485 D6=INT(D6+.5):D7=INT(D7+.5)
490 PRINTTAB(22)"[152][213]MBRA:";D6;"[152]MIN"
495 PRINTTAB(22)"[150][212][207][212][193][204][201][212][217]:";D7;"[150]MIN":GOTO505
500 PRINT:PRINT
505 RETURN
510 Q9$="":POKE198,.
512 GETA$
514 POKE646,RND(1)*15+1:PRINT"*[157]";:IFA$=""THEN512
516 IFA$=CHR$(13)THENPRINT" ":Q9=VAL(Q9$):RETURN
518 IF(A$=CHR$(20)ANDLEN(Q9$))THENQ9$=LEFT$(Q9$,LEN(Q9$)-1):GOTO530
520 IFLEN(Q9$)>=L9%THENSYSAD+9,2:GOTO512
522 IF(A$>="0"ANDA$<="9")ORA$="."ORA$="-"THEN526
524 GOTO512
526 Q9$=Q9$+A$
528 PRINT""A$;:SYSAD+9,6:GOTO512
530 PRINT" [157][157] [157]";:GOTO512
555 REM JULIAN CALENDAR
560 F=F+.5
565 IFF<1THEN575
570 F=F-1:J=J+1
575 IFG=1THEN585
580 A=J:GOTO595
585 A1=INT((J/36524.25)-51.12264)
590 A=J+1+A1-INT(A1/4)
595 B=A+1524
600 C=INT((B/365.25)-.3343)
605 D=INT(365.25*C)
610 E=INT((B-D)/30.61)
615 D=B-D-INT(30.61*E)+F
620 M=E-1:Y=C-4716
625 IFE>13.5THENM=M-12
630 IFM<2.5THENY=Y+1
635 D1=INT(D):H=24*(D-D1)
640 H1=INT(H):M9=INT(60*(H-H1))
645 RETURN
10000 D=PEEK(186):N$="LUNAR ECLIPSES":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END
30000 POKE214,21:PRINT:PRINTTAB(8)"[159](1[159]) [212]RY ANOTHER ONE
30010 [153][163]8)"OPEN(2OPEN) (null)O (null)(null)RIGHT$(null)VAL(null)(null)VAL (null)ENU"
30020 [158]AD[170]9,15:[151]198,0
30030 [161]A$:[139]A$[179]"1"[176]A$[177]"2"[167]30030
30040 [139]A$[178]"1"[167][142]
30050 [158]AD[170]15
30060 [153]"LOADSTOPLOAD"[199](34)"B.UNIVERSE II"[199](34)","DV
30070 [153]"RUN28"
30080 [151]631,13:[151]632,13:[151]198,2:[128]